home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Graphics / PerfectPaint / rexx / bridge / Host / MovieShop < prev    next >
Encoding:
Text File  |  2001-04-09  |  3.5 KB  |  246 lines
  1.  
  2. #ArexxPort
  3. MOVIESHOP
  4. #END ArexxPort
  5.  
  6. #HostToFront
  7. SCREENTOFRONT
  8. #END HostToFront
  9.  
  10. #HostLoadPicture
  11. SAFETYLEVEL LOW
  12. IMPORTPICTYPE "FRAMES"
  13. request "Append_this_frame_?" TITLE 'request' gadgets 'yes|no'
  14. IF result=0 THEN DO
  15.     BLOCK MARK FORCE
  16.   BLOCK DELETE FORCE
  17. END
  18. IMPORTFRAME Picture
  19. SAFETYLEVEL HIGH
  20. #END HostLoadPicture
  21.  
  22. #HostSavePicture
  23. SAFETYLEVEL LOW
  24. ExportExtension ".%05ld"
  25. EXPORTPICTYPE "FRAMES"
  26. EXPORTFILETYPE "ILBM"
  27. EXPORTCOMPRESSION "OFF"
  28. SAVEICONS "OFF"
  29. BLOCK MARK FORCE
  30. BLOCK COPY FORCE
  31. EXPORTBLOCK Picture
  32. SAFETYLEVEL HIGH
  33. ADDRESS COMMAND
  34. 'rename '||picture||'.00001 '||picture
  35. #END HostSavePicture
  36.  
  37. #HostLoadBrush
  38. SAFETYLEVEL LOW
  39. IMPORTPICTYPE "FRAMES"
  40. request "Append_this_frame_?" TITLE 'request' gadgets 'yes|no'
  41. IF result=0 THEN DO
  42.     BLOCK MARK FORCE
  43.   BLOCK DELETE FORCE
  44. END
  45. IMPORTFRAME Brush
  46. SAFETYLEVEL HIGH
  47. #END HostLoadBrush
  48.  
  49. #HostSaveBrush
  50. SAFETYLEVEL LOW
  51. ExportExtension ".%05ld"
  52. EXPORTPICTYPE "FRAMES"
  53. EXPORTFILETYPE "ILBM"
  54. EXPORTCOMPRESSION "OFF"
  55. SAVEICONS "OFF"
  56. BLOCK MARK FORCE
  57. BLOCK COPY FORCE
  58. EXPORTBLOCK Brush
  59. SAFETYLEVEL HIGH
  60. ADDRESS COMMAND
  61. 'rename '||Brush||'.00001 '||Brush
  62. #END HostSaveBrush
  63.  
  64. #HostLoadPalette
  65. 0
  66. #END HostLoadPalette
  67.  
  68. #HostSavePalette
  69. 0
  70. #END HostSavePalette
  71.  
  72. #HostLoadAnim
  73.  
  74.     ADDRESS value Port
  75.     pp_CountFrames
  76.     count=result
  77.     IF count<2 then DO
  78.         pp_Warn 'Make*an*Anim*first.'
  79.         pp_PermitRefresh
  80.         EXIT
  81.     END
  82.  
  83.     ADDRESS MOVIESHOP
  84.     SCREENTOFRONT
  85.     Newscene 'PfP_Scene'
  86.     GotoScene 'PfP_Scene'
  87.  
  88.     ADDRESS value port
  89.     pp_ShowScreen
  90.     pp_SavePrefs 0 1 100 0 0    
  91.  
  92.     Do i=1 to count
  93.         ADDRESS value port
  94.         pp_SHOWSCREEN
  95.         pp_GotoFrame (count-i+1)
  96.         pp_Save Picture
  97.         ADDRESS MOVIESHOP
  98.         SCREENTOFRONT
  99.         ImportFrame Picture
  100.     END
  101.  
  102. #END HostLoadAnim
  103.  
  104. #HostSaveAnim
  105.     ADDRESS MOVIESHOP
  106.     Count=0
  107.     SAFETYLEVEL LOW
  108.     ExportExtension ".%05ld"
  109.     EXPORTPICTYPE FRAMES
  110.     EXPORTFILETYPE ILBM
  111.     EXPORTCOMPRESSION OFF
  112.     SAVEICONS OFF
  113.     GOTOFRAME Last
  114.     GETFRAMEPOS
  115.     Count=RESULT
  116.     GOTOFRAME number 0
  117.  
  118.     scale=0
  119.     s0=0
  120.     s1=count
  121.  
  122.     ADDRESS value Port
  123.     pp_DialogInit 250 120 "*Load*MovieShop*Anim*" 4
  124.         pp_Slider 0 100 5 100 16 "First*Frame*#" 1 1 count s0
  125.         pp_Slider 1 100 25 100 16 "Last*Frame*#" 1 1 count s1
  126.         pp_Cycle 2 150 45 50 16 "Scale*each*frame" 1 "No|/2|/3|/4" scale
  127.         pp_Cycle 3 150 65 50 16 "Step" 1 "1|2|3|4|5" scale
  128.     pp_Dialog
  129.     rc=result
  130.     IF rc=0 THEN DO
  131.         EXIT
  132.     END
  133.  
  134.     pp_GetDialog 0
  135.     s0=result
  136.  
  137.     pp_GetDialog 1
  138.     s1=result
  139.  
  140.     pp_GetDialog 2
  141.     scale=result
  142.  
  143.     pp_GetDialog 3
  144.     step=result+1
  145.  
  146.  
  147.  
  148.     ADDRESS MOVIESHOP
  149.     SCREENTOFRONT
  150.  
  151.     BLOCK MARK FORCE
  152.     BLOCK COPY FORCE
  153.     EXPORTBLOCK Picture
  154.  
  155.     ADDRESS COMMAND
  156.     'rename '||picture||'.00001 '||picture
  157.  
  158.     ADDRESS value Port
  159.     pp_ShowScreen
  160.  
  161.         pp_GetCurrentBrush
  162.         CB=result
  163.         pp_FindEmptyBrush
  164.         Brush=result
  165.         pp_SetBrush Brush
  166.  
  167.     pp_Load Picture
  168.     pp_GetWidth
  169.     W=result
  170.     pp_GetHeight
  171.     H=result
  172.  
  173.     IF scale=1 then DO
  174.         W=W/2
  175.         H=H/2
  176.     END
  177.  
  178.     IF scale=2 then DO
  179.         W=W/3
  180.         H=H/3
  181.     END
  182.  
  183.     IF scale=3 then DO
  184.         W=W/4
  185.         H=H/4
  186.     END
  187.  
  188.     pp_new W H 24
  189.  
  190.     pp_AnimGui 1
  191.     nbframe=result
  192.     IF nbframe<0 then DO
  193.         EXIT
  194.     END                
  195.     pp_MakeAnim ((s1-s0)+1)/step
  196.     pp_CountFrames
  197.     Count=result        
  198.     IF result<2 then DO
  199.         pp_Warn "Not*enough*memory"
  200.         EXIT
  201.     END        
  202.  
  203.     MSF=s0
  204.  
  205.     DO i=1 to Count
  206.  
  207.         ADDRESS MOVIESHOP
  208.         SCREENTOFRONT
  209.         GOTOFRAME NUMBER MSF
  210.         MSF=MSF+step
  211.         BLOCK MARK FORCE
  212.         BLOCK COPY FORCE
  213.         EXPORTBLOCK Picture
  214.  
  215.         ADDRESS COMMAND
  216.         'rename '||picture||'.00001 '||picture
  217.  
  218.         ADDRESS value Port
  219.         PP_ShowScreen
  220.  
  221.         pp_Bload Picture
  222.         IF scale>0 then DO
  223.             pp_ScaleBrush W H
  224.         END
  225.  
  226.         pp_plot W/2 H/2
  227.  
  228.         ADDRESS COMMAND
  229.         'delete '||picture
  230.     
  231.         ADDRESS value Port
  232.         pp_NextFrame
  233.  
  234.     END 
  235.  
  236.     pp_GotoFrame 1
  237.     pp_FreeBrush
  238.     pp_SetBrush CB
  239.  
  240.     ADDRESS MOVIESHOP
  241.     SAFETYLEVEL HIGH
  242.     
  243. #END HostSaveAnim
  244.  
  245.  
  246.